home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / CommResources.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  4.3 KB  |  121 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        CommResources.mod
  3.  
  4.      Contains:    Communications Toolbox Resource Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE CommResources;
  23.  
  24. IMPORT SYSTEM, Types, OSUtils;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31. (*    tool classes (also the tool file types)    *)
  32.     classCM*                        = LONG("cbnd");
  33.     classFT*                        = LONG("fbnd");
  34.     classTM*                        = LONG("tbnd");
  35.  
  36. (*    version of the Comm Resource Manager    *)
  37.     curCRMVersion*                = 2;
  38. (* constants general to the use of the Communications Resource Manager *)
  39.     crmType*                        = 9;                            (* queue type    *)
  40.     crmRecVersion*                = 1;                            (* version of queue structure *)
  41. (*    error codes *)
  42.     crmGenericError*                = -1;
  43.     crmNoErr*                    = 0;
  44.  
  45. (* data structures general to the use of the Communications Resource Manager *)
  46.     
  47. TYPE
  48.     CRMErr* = Types.OSErr;
  49.  
  50.     CRMRec* = RECORD
  51.         qLink*:                    OSUtils.QElemPtr;                                (*reserved*)
  52.         qType*:                    INTEGER;                                (*queue type -- ORD(crmType)* = 9*)
  53.         crmVersion*:                INTEGER;                                (*version of queue element data structure*)
  54.         crmPrivate*:                LONGINT;                                (*reserved*)
  55.         crmReserved*:            INTEGER;                                (*reserved*)
  56.         crmDeviceType*:            LONGINT;                                (*type of device, assigned by DTS*)
  57.         crmDeviceID*:            LONGINT;                                (*device AIFF.ID; assigned when CRMInstall is called*)
  58.         crmAttributes*:            LONGINT;                                (*pointer to attribute block*)
  59.         crmStatus*:                LONGINT;                                (*status variable - device specific*)
  60.         crmRefCon*:                LONGINT;                                (*for device private use*)
  61.     END;
  62.  
  63.     CRMRecPtr* = POINTER TO CRMRec;
  64.  
  65.  
  66. PROCEDURE InitCRM*(): CRMErr;
  67.     EXTERNAL PASCAL;
  68. PROCEDURE CRMGetHeader*(): OSUtils.QHdrPtr;
  69.     EXTERNAL PASCAL;
  70. PROCEDURE CRMInstall*(crmReqPtr: CRMRecPtr);
  71.     EXTERNAL PASCAL;
  72. PROCEDURE CRMRemove*(crmReqPtr: CRMRecPtr): Types.OSErr;
  73.     EXTERNAL PASCAL;
  74. PROCEDURE CRMSearch*(crmReqPtr: CRMRecPtr): CRMRecPtr;
  75.     EXTERNAL PASCAL;
  76. PROCEDURE CRMGetCRMVersion*(): INTEGER;
  77.     EXTERNAL PASCAL;
  78. PROCEDURE CRMGetResource*(theType: Types.ResType; theID: INTEGER): Types.Handle;
  79.     EXTERNAL PASCAL;
  80. PROCEDURE CRMGet1Resource*(theType: Types.ResType; theID: INTEGER): Types.Handle;
  81.     EXTERNAL PASCAL;
  82. PROCEDURE CRMGetIndResource*(theType: Types.ResType; index: INTEGER): Types.Handle;
  83.     EXTERNAL PASCAL;
  84. PROCEDURE CRMGet1IndResource*(theType: Types.ResType; index: INTEGER): Types.Handle;
  85.     EXTERNAL PASCAL;
  86. PROCEDURE CRMGetNamedResource*(theType: Types.ResType; name: Types.ConstStr255Param): Types.Handle;
  87.     EXTERNAL PASCAL;
  88. PROCEDURE CRMGet1NamedResource*(theType: Types.ResType; name: Types.ConstStr255Param): Types.Handle;
  89.     EXTERNAL PASCAL;
  90. PROCEDURE CRMReleaseResource*(theHandle: Types.Handle);
  91.     EXTERNAL PASCAL;
  92. PROCEDURE CRMGetToolResource*(procID: INTEGER; theType: Types.ResType; theID: INTEGER): Types.Handle;
  93.     EXTERNAL PASCAL;
  94. PROCEDURE CRMGetToolNamedResource*(procID: INTEGER; theType: Types.ResType; name: Types.ConstStr255Param): Types.Handle;
  95.     EXTERNAL PASCAL;
  96. PROCEDURE CRMReleaseToolResource*(procID: INTEGER; theHandle: Types.Handle);
  97.     EXTERNAL PASCAL;
  98. PROCEDURE CRMGetIndex*(theHandle: Types.Handle): LONGINT;
  99.     EXTERNAL PASCAL;
  100. PROCEDURE CRMLocalToRealID*(bundleType: Types.ResType; toolID: INTEGER; theType: Types.ResType; localID: INTEGER): INTEGER;
  101.     EXTERNAL PASCAL;
  102. PROCEDURE CRMRealToLocalID*(bundleType: Types.ResType; toolID: INTEGER; theType: Types.ResType; realID: INTEGER): INTEGER;
  103.     EXTERNAL PASCAL;
  104. PROCEDURE CRMGetIndToolName*(bundleType: Types.OSType; index: INTEGER; VAR toolName: Types.Str255): Types.OSErr;
  105.     EXTERNAL PASCAL;
  106. PROCEDURE CRMFindCommunications*(VAR vRefNum: INTEGER; VAR dirID: LONGINT): Types.OSErr;
  107.     EXTERNAL PASCAL;
  108. PROCEDURE CRMIsDriverOpen*(driverName: Types.ConstStr255Param): BOOLEAN;
  109.     EXTERNAL PASCAL;
  110. PROCEDURE CRMParseCAPSResource*(theHandle: Types.Handle; selector: Types.ResType; VAR value: LONGINT): CRMErr;
  111.     EXTERNAL PASCAL;
  112. PROCEDURE CRMReserveRF*(refNum: INTEGER): Types.OSErr;
  113.     EXTERNAL PASCAL;
  114. PROCEDURE CRMReleaseRF*(refNum: INTEGER): Types.OSErr;
  115.     EXTERNAL PASCAL;
  116.  
  117. (* $ALIGN RESET*)
  118. (* $POP*)
  119.  
  120.  END CommResources.
  121.